The RLastfm package: Analysis of Music Listening Habits in R

Arguments

api_key: The api key from Lastfm.

user: The username of the Lastfm account.

from: The starting timestamp in UNIX format. Default is time of the first scrobble recorded.

to: The ending timestamp in UNIX format. Default is time of the last scrobble recorded.

show_prog: If TRUE, prints which page the function is currently fetching out of total number of pages.

Return Value

Returns a dataframe that summarizes a user’s listening history.

Description

The function get_listening_history produces a dataframe that summarizes a user’s listening history, also known as “scrobbles”. Each row corresponds to a track that the user has listened to, in addition to attributes such as artist, album, time listened, etc. This function requires internet access, since the data can only be aquired through the Lastfm API.

Example

library(magrittr)
#> 
#> Attaching package: 'magrittr'
#> The following object is masked from 'package:ggmap':
#> 
#>     inset
source("../R/get_label.R")
source("../R/get_listening_history.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "stat290_test"
get_listening_history(api_key, user) %>% head(10) %>% knitr::kable()

Arguments

mbid: The 36 character MBID code for the artist.

Return Value

Returns a list of a list with the name, gender, date of birth/starting activity, genre, location MBID, city, country.

Description

The function get_artist_info produces a list of lists that summarizes an artist’s basic information, such as name, gender, date of birth/starting activity, genre, location MBID, city of birth, and country of birth. This function requires internet access, since the data can only be aquired through the MusicBrainz API. No API key is required.

Example

source("../R/get_artist_info.R")
mbid = "f4ccf6c5-ad41-4f8f-bb9e-6e2c6ad23302"
get_artist_info(mbid)
#> $mbid
#> [1] "f4ccf6c5-ad41-4f8f-bb9e-6e2c6ad23302"
#> 
#> $name
#> [1] "Deafheaven"
#> 
#> $gender
#> character(0)
#> 
#> $dob
#> [1] "2010"
#> 
#> $genres
#> [1] "blackgaze" "hipster"  
#> 
#> $location_mbid
#> [1] "83f22bb6-4631-443c-bace-9fae8540362a"
#> 
#> $city
#> [1] "San Francisco"
#> 
#> $country
#> [1] "United States"

Arguments

mbid: The 36 character mbid code for the album.

Return Value

Returns a list of a list with the title, artist, release_date, language, label mbid, label name, genre tags, and track list of the album.

Description

The function get_album_info produces a list of lists that summarizes an album’s basic information, such as title, artist, release_date, language, label mbid, label name, genre tags, and track list. This function requires internet access, since the data can only be aquired through the MusicBrainz API. No API key is required.

Example

source("../R/get_album_info.R")
mbid = "5b341e77-65a1-460f-b25c-1e29e97cc051"
get_album_info(mbid)
#> $mbid
#> [1] "5b341e77-65a1-460f-b25c-1e29e97cc051"
#> 
#> $title
#> [1] "Heard It in a Past Life"
#> 
#> $artist
#> [1] "Maggie Rogers"
#> 
#> $release_date
#> [1] "2019-01-18"
#> 
#> $language
#> [1] "eng"
#> 
#> $label_id
#> [1] "abea2d3e-eabf-4480-ab24-9382dd642c73"
#> 
#> $label_name
#> [1] "Capitol Records"
#> 
#> $genres
#> [1] "alternative rock" "american"         "américain"       
#> [4] "art rock"         "dance-punk"       "electronic"      
#> [7] "indie rock"       "pop"              "usa"             
#> 
#> $track_list
#>  [1] "Give a Little"   "Overnight"       "The Knife"      
#>  [4] "Alaska"          "Light On"        "Past Life"      
#>  [7] "Say It"          "On + Off"        "Fallingwater"   
#> [10] "Retrograde"      "Burning"         "Back in My Body"

Arguments

mbid: The 36 character mbid code for the track.

Return Value

Returns a list of a list with the track name, artist name, album, and length of the track.

Description

The function get_track_info produces a list of lists that summarizes a track’s basic information, such as track name, artist name, album, and length of the track. This function requires internet access, since the data can only be aquired through the MusicBrainz API. No API key is required.

Example

source("../R/get_track_info.R")
mbid = "082583f9-0cda-4e43-b33d-39e6cc4c3c53"
get_track_info(mbid)
#> $mbid
#> [1] "082583f9-0cda-4e43-b33d-39e6cc4c3c53"
#> 
#> $track
#> [1] "The Knife"
#> 
#> $artist
#> [1] "Maggie Rogers"
#> 
#> $album
#> [1] "Heard It in a Past Life"
#> 
#> $length
#> [1] 239

Arguments

api_key: The api key from Lastfm.

user: The user you want to search their song history for.

from: The timestamp you want to start searching song history from in UNIX format. Default is the first scrobble.

to: the timestamp upto which you want to search song history to. In UNIX format. Default is the latest scrobble.

show_prog: If TRUE, prints which page the function is currently fetching out of total number of pages.

Return Value

Comprehensive data grab of a user’s listening history with expanded information.

Description

The get_data function calls the get_listening_history, get_artist_info, get_album_info, and get_track_info functions to create a aggregate dataframe of all relevant information.

Example

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(ggmap)
source("../R/get_label.R")
source("../R/get_artist_info.R")
source("../R/get_album_info.R")
source("../R/get_track_info.R")
source("../R/get_data.R")
source("../R/get_listening_history.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "stat290_test"
df <- get_data(api_key, user) 
#> Source : https://maps.googleapis.com/maps/api/geocode/json?address=Cincinnati&key=xxx-YFVqiU2APy95-gM
#> Source : https://maps.googleapis.com/maps/api/geocode/json?address=Stockton&key=xxx-YFVqiU2APy95-gM
#> Source : https://maps.googleapis.com/maps/api/geocode/json?address=Golden&key=xxx-YFVqiU2APy95-gM
#> Source : https://maps.googleapis.com/maps/api/geocode/json?address=Japan&key=xxx-YFVqiU2APy95-gM
#> Source : https://maps.googleapis.com/maps/api/geocode/json?address=Easton&key=xxx-YFVqiU2APy95-gM
#> Source : https://maps.googleapis.com/maps/api/geocode/json?address=London&key=xxx-YFVqiU2APy95-gM
#> Source : https://maps.googleapis.com/maps/api/geocode/json?address=United+Kingdom&key=xxx-YFVqiU2APy95-gM
df %>% head(10) %>% knitr::kable()

Arguments

df: Dataframe of scrobles, tidied with artist location of birth along with longitude and lattitude.

Return Value

Returns a map image, where each point on the map indicates an artist who was born there.

Description

Generate world map of where artists were born based on a user’s listening history. This will require use of Google’s ggmap API.

Example

source("../R/artist_map.R")
get_artist_map(df)

Arguments

data: Dataframe of scrobles, tidied.

Return Value

Returns a wordcloud image, where bigger words indicated greater weight in genre.

Description

Generate WordCloud of music genres based on a user’s listening history.

Example

source("../R/wordcloud.R")
get_wordcloud(df)

Arguments

user: The user name to fetch the loved tracks for.

api_key: A Last.fm API key.

Return Value

Returns an list of loved tracks for a given user.

Description

Creates a tibble of loved tracks that a user as bookmarked on Last.fm.

Example

source("../R/get_loved_tracks.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "stat290_test"
get_loved_tracks(api_key, user)
#> # A tibble: 28 x 3
#>    track_mbid                        track              time               
#>    <chr>                             <chr>              <dttm>             
#>  1 61de899f-5d4e-43f3-bbf1-7e36a6d7… Say It             2019-03-17 03:23:00
#>  2 3788b91b-f00f-4485-be30-8bafc745… On + Off           2019-03-17 03:23:00
#>  3 <NA>                              Turn the Light     2019-03-17 03:23:00
#>  4 0dca44e6-d4a8-48cd-be99-af855b55… Slow Burn          2019-03-17 03:23:00
#>  5 303a7970-49e7-4c47-94e3-7563e50a… Oh, What a World   2019-03-17 03:23:00
#>  6 2e644590-e52c-4585-a4ac-62a88b71… Rainbow            2019-03-17 03:23:00
#>  7 06c07e50-f230-4f46-b325-b7012bcd… Love Is a Wild Th… 2019-03-17 03:23:00
#>  8 5b897a81-7ccd-47d6-b098-e6aa546f… Mother             2019-03-17 03:23:00
#>  9 05820d1b-0002-4360-a793-2be766f4… Happy & Sad        2019-03-17 03:23:00
#> 10 2259c689-3979-4248-b7b4-6366af1b… High Horse         2019-03-17 03:23:00
#> # … with 18 more rows

Arguments

api_key: The api key from Lastfm.

user: The user you want to search their artist history for.

period: The timeframe within which you want your search to be options are “overall”, “7day”, “1month”, “3month”, “6month”, “12month.” Default is 7 days.

show_prog: If TRUE, prints which page the function is currently fetching out of total number of pages.

pages: If set to “one”, returns just the first page of the API request output.

Return Value

Returns a tibble with rank, top artists, artist play count, artist MBID code, and a url to the artist’s picture.

Description

Returns a dataframe of the user’s top artists.

Example

source("../R/get_top_artists.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "dkang9503"
get_top_artists(api_key, user)
#> # A tibble: 91 x 5
#>     Rank Artist        `Play Count` `Artist MBID`         `Artist Picture …
#>    <dbl> <chr>                <dbl> <chr>                 <list>           
#>  1     1 Duke Ellingt…           74 3af06bc4-68ad-4cae-b… <chr [1]>        
#>  2     2 Everything B…           38 959cf5bf-ee29-4af6-a… <chr [1]>        
#>  3     3 Lucy Dacus              31 dbe7fdf7-81b2-418b-b… <chr [1]>        
#>  4     4 John Fahey              29 95bb27d2-43c7-4a92-8… <chr [1]>        
#>  5     5 Carpenters              27 4580d83b-093e-4241-9… <chr [1]>        
#>  6     6 Haley Heynde…           26 f0805df4-1541-48b1-8… <chr [1]>        
#>  7     7 Hannah Georg…           25 9074ba02-319a-4882-b… <chr [1]>        
#>  8     8 Maggie Rogers           18 dde26295-8cd4-474c-8… <chr [1]>        
#>  9     9 Over the Rhi…           18 88afd639-e4bd-4abd-b… <chr [1]>        
#> 10    10 Kacey Musgra…           16 d1393ecb-431b-4fde-a… <chr [1]>        
#> # … with 81 more rows

Arguments

api_key: The api key from Last.fm.

user: The user you want to search their album history for.

period: The timeframe within which you want your search to be options are “overall”, “7day”, “1month”, “3month”, “6month”, “12month.” Default is 7 days.

show_prog: If TRUE, prints which page the function is currently fetching out of total number of pages.

pages: If “one”, returns just the first page of the API request output.

Return Value

Returns a tibble with rank, album name, play count, artist name, artist MBID, and a url to the album art.

Description

Returns a dataframe of the user’s top albums.

Example

source("../R/get_top_albums.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "dkang9503"
get_top_albums(api_key, user)
#> # A tibble: 135 x 6
#>    Rank  Album       `Play Count` Artist   `Artist MBID`    `Album Art Url`
#>    <chr> <chr>       <chr>        <chr>    <chr>            <list>         
#>  1 1     Never No L… 74           Duke El… 3af06bc4-68ad-4… <chr [1]>      
#>  2 2     Death Chan… 22           John Fa… 95bb27d2-43c7-4… <chr [1]>      
#>  3 3     I Need to … 21           Haley H… f0805df4-1541-4… <chr [1]>      
#>  4 4     Close To Y… 19           Carpent… 4580d83b-093e-4… <chr [1]>      
#>  5 5     Amplified … 19           Everyth… 959cf5bf-ee29-4… <chr [1]>      
#>  6 6     No Burden   19           Lucy Da… dbe7fdf7-81b2-4… <chr [1]>      
#>  7 7     Heard It I… 18           Maggie … dde26295-8cd4-4… <chr [1]>      
#>  8 8     Golden Hour 16           Kacey M… d1393ecb-431b-4… <chr [1]>      
#>  9 9     When I Get… 16           Solange  410e7fd3-b865-4… <chr [1]>      
#> 10 10    This Is Ho… 13           Helado … aa0a54b3-d37e-4… <chr [1]>      
#> # … with 125 more rows

Arguments

api_key: The api key from Last.fm.

user: The user you want to search their track history for.

period: The timeframe within which you want your search to be options are “overall”, “7day”, “1month”, “3month”, “6month”, “12month.” Default is 7 days.

show_prog: If TRUE, prints which page the function is currently fetching out of total number of pages.

pages: If “one”, returns just the first page of the API request output.

Return Value

Returns a tibble with rank, top tracks, track play count, song duration, artist name, artist MBID code, and a url to the artist’s picture.

Description

Returns a dataframe of the user’s top artists.

Example

source("../R/get_top_tracks.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "dkang9503"
get_top_tracks(api_key, user)

Arguments

api_key: The api key from Lastfm.

artist: The artist you want to find similar artists to.

track: The corresponding track you want to find similar artists to.

num_return: The number of artists you want to be returned. Default is 10.

Return Value

Returns a vector of recommended tracks and a similarity rating for said track.

Description

Given an artist and a track name, get_similar_tracks generates num_return tracks that are most similar based on Last.fm’s similarity rating.

Example

source("../R/get_top_tracks.R")
source("../R/get_similar_tracks.R")
api_key = "9754b89d94c697376775c0a6896c979a"
artist = "Nujabes"
track = "Flowers"
get_similar_tracks(api_key, artist, track)
#> $rec_track
#>  [1] "Light on the Land" "Music Is Mine"     "battlecry"        
#>  [4] "Ole"               "Chambers"          "Just Forget"      
#>  [7] "Evening Comes"     "Luv Letter"        "Essential Violet" 
#> [10] "Natural Green"    
#> 
#> $rec_artist
#>  [1] "Nujabes"               "Nujabes"              
#>  [3] "Nujabes feat. Shing02" "Fat Jon"              
#>  [5] "Fat Jon"               "Force of Nature"      
#>  [7] "DJ Okawari"            "DJ Okawari"           
#>  [9] "Blazo"                 "Blazo"                
#> 
#> $rec_sim_rating
#>  [1] 1.000 0.973 0.234 0.228 0.216 0.200 0.122 0.107 0.096 0.087

Arguments

api_key: The api key from Lastfm.

user: The user you want to search their listening history for.

period: The timeframe within which you want your search to be options are “overall”, “7day”, “1month”, “3month”, “6month”, “12month.” Default is 7 days. Longer time periods will take longer time.

test: A parameter to make the example case load faster.

Return Value

Returns a tibble with the recommended tracks and a recommendation rating based on Last.fm’s similarity score and number of listens.

Description

Gives a user recommendations of tracks to listen to based on their listening history.

Example

source("../R/track_recommendations.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "stat290_test"
track_recommendations(api_key, user, test = TRUE)
#> # A tibble: 36 x 3
#> # Groups:   tracks [36]
#>    tracks        artists                   rec_rating
#>    <chr>         <chr>                          <dbl>
#>  1 The Knife     Maggie Rogers                  11.4 
#>  2 Overnight     Maggie Rogers                  11.4 
#>  3 Past Life     Maggie Rogers                  10.9 
#>  4 Give A Little Maggie Rogers                  10.7 
#>  5 Fallingwater  Maggie Rogers                   5.70
#>  6 On + Off      Maggie Rogers                   5.70
#>  7 Light On      Maggie Rogers                   5.41
#>  8 Adore         Amy Shark                       4.53
#>  9 Sugar         Terror Jr                       3.82
#> 10 Power Down    Benjamin Francis Leftwich       2.96
#> # … with 26 more rows

Arguments

api_key: The api key from Lastfm.

artist: The artist you want to find similar artists to.

num_return: The number of artists you want to be returned.

mbid: A boolean of whether or not the artist parameter is a unique mbid of an artist. Default is false.

Return Value

Given an artist, returns a vector of artists and a vector similarity rating for said artist.

Description

Given an artist, get_similar_tracks generates num_return artists that are most similar based on Last.fm’s similarity rating.

Example

source("../R/get_similar_artist.R")
api_key = "9754b89d94c697376775c0a6896c979a"
artist = "Prince"
get_similar_artist(api_key, artist)
#> $rec_artist
#>  [1] "Prince & The Revolution"            
#>  [2] "The Time"                           
#>  [3] "Prince and the New Power Generation"
#>  [4] "Sheila E."                          
#>  [5] "Wendy & Lisa"                       
#>  [6] "The Family"                         
#>  [7] "Madhouse"                           
#>  [8] "Vanity 6"                           
#>  [9] "Stevie Wonder"                      
#> [10] "Terence Trent D'Arby"               
#> 
#> $rec_sim_rating
#>  [1] 1.000000 0.921503 0.921494 0.588352 0.354108 0.336150 0.276339
#>  [8] 0.274795 0.237341 0.234175

Arguments

api_key: The api key from Lastfm.

user: The user you want to search their track history for.

period: The timeframe within which you want your search to be options are “overall”, “7day”, “1month”, “3month”, “6month”, “12month.” Default is 7 days. Longer time periods will take longer time.

Return Value

Returns a tibble with the recommended artists and a recommendation rating based on Last.fm’s similarity score and number of listens.

Description

Gives a user recommendations of artists to listen to based on their listening history.

Example

source("../R/artist_recommendations.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "stat290_test"
period = "overall"
artist_recommendations(api_key, user)
#> # A tibble: 87 x 2
#>    artists            rec_rating
#>    <chr>                   <dbl>
#>  1 King Princess            5.13
#>  2 Derek Webb               4.06
#>  3 Sigrid                   4.06
#>  4 Rosie Thomas             3.93
#>  5 Maren Morris             3.25
#>  6 Xavier Omär              3.25
#>  7 The Japanese House       3.21
#>  8 Léon                     3.12
#>  9 Chelsea Jade             3.09
#> 10 Yogee New Waves          2.77
#> # … with 77 more rows

Arguments

api_key: The api key from Lastfm.

user: The user you want to look up info for.

period: The timeframe within which you want your search to be options are “overall”, “7day”, “1month”, “3month”, “6month”, “12month.” Default is 7 days.

size: The size of the chart you want to produce. Can pick any number from 2 to 10.

display: Option of whether or not you want labels for artist, album, play count, and rank. Input as a vector of options e.g. c(‘artist’, ‘album’, ‘playcount’, ‘rank’).

Return Value

Returns an image of the chart of the top albums a user listened to in a given timeframe.

Description

Creates a chart of the top albums a user listens to in a given time period.

Example

source("../R/album_chart.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "dkang9503"
album_chart(api_key, user, display = c('artist', 'album'))

Arguments

api_key: The api key from Lastfm.

user: The user you want to look up info for.

period: The timeframe within which you want your search to be options are “overall”, “7day”, “1month”, “3month”, “6month”, “12month.” Default is 7 days.

size: The size of the chart you want to produce. Can pick any number from 2 to 10.

display: Option of whether or not you want labels for artist, album, play count, and rank. Input as a vector of options e.g. c(‘artist’, ‘playcount’, ‘rank’).

Return Value

Returns an image of the chart of the top artists a user listened to in a given timeframe.

Description

Creates a chart of the top artists a user listens to in a given time period.

Example

source("../R/artist_chart.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "dkang9503"
artist_chart(api_key, user, display = c('artist'))

Arguments

api_key: The api key from Lastfm.

user: The user you want to search their album history for.

period: The timeframe within which you want your search to be options are “overall”, “7day”, “1month”, “3month”, “6month”, “12month.” Default is 7 days.

num_artist: Number of artist you want to specify in the plots. Default is 20.

Return Value

Returns a chart outlining how mainstream a user’s top artists are.

Description

Returns a chart outlining how mainstream a user’s top 20 artists are.

Example

source("../R/mainstream_chart.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "dkang9503"
mainstream_chart(api_key, user)

Arguments

api_key: The api key from Lastfm.

user: The user you want to search their track history for.

period: The timeframe within which you want your search to be options are “overall”, “7day”, “1month”, “3month”, “6month”, “12month.” Default is 7 days. Longer time periods will take longer time.

show_prog: If TRUE, prints which page the function is currently fetching out of total number of pages.

num_artist: Number of artists you want to retrieve listening information about.

Return Value

Returns two plots showing number of minutes spent listening to artist and the percentage of time listening to each artist.

Description

Returns two charts detailing the amount of time a user spent listening to specific artists. This is going to take a while, ignore the request fails. This function might take a while because we have to fetch missing track duration data.

Example

source("../R/time_spent_listening.R")
api_key = "9754b89d94c697376775c0a6896c979a"
user = "stat290_test"
period = "overall"
time_spent_listening(api_key, user, period)

David

album_chart, artist_chart, mainstream_chart, artist_recommendations, time_spent_listening, get_similar_artists, get_similar_tracks, get_album_info, get_artist_info, get_listening_history, get_track_info, get_top_albums, get_top_artists, get_top_tracks, test cases

Esha

artist_map, get_loved_tracks, wordcloud, get_data, get_similar_tracks, track_recommendations, get_album_info, get_artist_info, get_listening_history, get_track_info, get_top_albums, get_top_artists, get_top_tracks, vignette